home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_examples.exe / %MAINDIR% / Examples / NetworkTree / Delphi / FMain.dfm / FMain.txt
Encoding:
Text File  |  2001-08-31  |  1.9 KB  |  86 lines

  1. object FrmMain: TFrmMain
  2.   Left = 434
  3.   Top = 200
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Select Computer Example'
  7.   ClientHeight = 272
  8.   ClientWidth = 429
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object PTFrame1: TPTFrame
  19.     Left = 0
  20.     Top = 0
  21.     Width = 429
  22.     Height = 2
  23.     FrameStyle = ptfsHorzLine
  24.     Align = alTop
  25.   end
  26.   object Label1: TLabel
  27.     Left = 256
  28.     Top = 8
  29.     Width = 45
  30.     Height = 13
  31.     Caption = 'Computer'
  32.   end
  33.   object Label2: TLabel
  34.     Left = 256
  35.     Top = 56
  36.     Width = 169
  37.     Height = 81
  38.     AutoSize = False
  39.     Caption = 
  40.       'This example shows a tree-view based at the Network Neighborhood' +
  41.       '. When a tree node is selected, if it is a computer the name is ' +
  42.       'displayed in the box above.'
  43.     WordWrap = True
  44.   end
  45.   object PTShellTree1: TPTShellTree
  46.     Left = 8
  47.     Top = 8
  48.     Width = 241
  49.     Height = 257
  50.     BaseFolder.Pidl = {0112}
  51.     Options = [ptstoAutoFill, ptstoVirtualFolders, ptstoDefaultKeyHandling, ptstoContextMenus, ptstoOleDrag, ptstoOleDrop]
  52.     ShowRoot = False
  53.     DragMode = dmAutomatic
  54.     Indent = 19
  55.     OnChange = PTShellTree1Change
  56.     ParentColor = False
  57.     TabOrder = 0
  58.   end
  59.   object CompLabel: TPTGroup
  60.     Left = 256
  61.     Top = 24
  62.     Width = 169
  63.     Height = 20
  64.     FrameStyle = ptfsLowered
  65.     Color = clRed
  66.     Font.Color = clWhite
  67.     Font.Height = -11
  68.     Font.Name = 'MS Sans Serif'
  69.     Font.Style = [fsBold]
  70.     ParentColor = False
  71.     ParentFont = False
  72.   end
  73.   object MainMenu1: TMainMenu
  74.     Left = 400
  75.     Top = 8
  76.     object File1: TMenuItem
  77.       Caption = '&File'
  78.       object Exit1: TMenuItem
  79.         Caption = 'E&xit'
  80.         ShortCut = 32856
  81.         OnClick = Exit1Click
  82.       end
  83.     end
  84.   end
  85. end
  86.